home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / nihcl-30.lha / nihcl-3.0 / vectest / bitvec.v < prev    next >
Text File  |  1990-05-16  |  1KB  |  42 lines
  1. Test class BitVec
  2. IntVec I(3,1,2):          1         3         5
  3. BitVec A(initA,10): 0 1 0 1 0 0 0 0 1 1 
  4. BitVec B(initB,10): 0 0 1 1 0 0 0 0 0 1 
  5. BitVec T(A): 0 1 0 1 0 0 0 0 1 1 
  6. BitVec U(A(0,5,2)): 0 0 0 0 1 
  7. BitVec V(10,YES): 1 1 1 1 1 1 1 1 1 1 
  8. C = U: 0 0 0 0 1 
  9. C = C: 0 0 0 0 1 
  10. C = A(0,5,2): 0 0 0 0 1 
  11. C = A; C = C(0,5,2): 0 0 0 0 1 
  12. C = A[B]: 0 1 1 
  13. C = A;  C = C[B]: 0 1 1 
  14. C = A[I]: 1 1 0 
  15. C = A;  C = C[I]: 1 1 0 
  16. C = 0: 0 0 0 
  17. C = !A: 1 0 1 0 1 1 1 1 0 0 
  18. C = A|B: 0 1 1 1 0 0 0 0 1 1 
  19. C = A;  C ^= B: 0 1 1 0 0 0 0 0 1 0 
  20. C = A;  C(0,5,2) = BitVec(5,YES): 1 1 1 1 1 0 1 0 1 1 
  21. C(1,5,2) = C(0,5,2): 1 1 1 1 1 1 1 1 1 1 
  22. C(0,3,1) = A[I]: 1 1 0 1 1 1 1 1 1 1 
  23. C(3,3,1) = A[B]: 1 1 0 0 1 1 1 1 1 1 
  24. C(0,6,1) = 0: 0 0 0 0 0 0 1 1 1 1 
  25. C = !A(0,5,2): 1 1 1 1 0 
  26. C = A(0,5,2)^B(1,5,2): 0 1 0 0 0 
  27. C = A;  C(0,5,2) ^= B(1,5,2): 0 1 1 1 0 0 0 0 0 1 
  28. C = A; C[I] =  BitVec(initA,3): 0 0 0 1 0 0 0 0 1 1 
  29. C[I] = A[I]: 0 1 0 1 0 0 0 0 1 1 
  30. C[I] = A[B]: 0 0 0 1 0 1 0 0 1 1 
  31. C[I] = A(0,3,2): 0 0 0 0 0 0 0 0 1 1 
  32. C[I] = YES: 0 1 0 1 0 1 0 0 1 1 
  33. C = A[I]|B[I]: 1 1 0 
  34. C = A;  C[A] = BitVec(4,NO): 0 0 0 0 0 0 0 0 0 0 
  35. C = B;  C[B] = A[I]: 0 0 1 1 0 0 0 0 0 0 
  36. C = A;  C[A] = B[A]: 0 0 0 1 0 0 0 0 0 1 
  37. C = A;  C[A] = B(0,4,1): 0 0 0 0 0 0 0 0 1 1 
  38. C = A;  C[A] = NO: 0 0 0 0 0 0 0 0 0 0 
  39. C = A[B]|B(0,3,1): 0 1 1 
  40. reverse(B(0,4,1)): 1 1 0 0 
  41. sum(A(1,5,2)): 3
  42.